/* GUI CONVERTED from remfccr.p (converter v1.75) Wed Aug 16 23:18:35 2000 */
/* remfccr.p - Repetitve                                                     */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/*V8:ConvertMode=Maintenance                                                 */
/*H1J5*/  /*V8:RunMode=Character,Windows                                     */

/* REVISION: 8.6E      CREATED ON: 08/17/98      BY: *H1J5* Felcy D'Souza    */
/* REVISION: 8.6E      LAST MODIFIED: 03/22/99   BY: *L0DP* Jyoti Thatte     */
/* REVISION: 9.1       LAST MODIFIED: 07/21/00   BY: *N0GD* Peggy Ng     */

/* CREATES mfc_ctrl RECORD WITH 'Zero Balance WIP' as 'Yes' IF IT DOES NOT   */
/* EXIST AND ALLOWS THE PROCESSING OF OLD LOGIC OF 'Zero Balance WIP' WITHOUT*/
/* USER INTERVENTION.                                                        */
/* INCASE OF 'Pulling WIP' LOGIC, mfc_ctrl RECORD GETS CREATED THROUGH 18.24 */
/* AND USER CAN UPDATE 'Zero Balance WIP' FLAG TO 'No' INORDER TO IMPLEMENT  */
/* THE NEW 'Pulling WIP' LOGIC.                                              */


/* ********** Begin Translatable Strings Definitions ********* */

/*L0DP*/ /* HARDCODED LABEL "Zero Balance WIP" HAS BEEN REPLACED */
/*N0GD* &SCOPED-DEFINE remfccr_p_1 "Zero Balance WIP"*/
/*N0GD* /* MaxLen:21  Comment:Zero Balance Work in Process */    */

/* ********** End Translatable Strings Definitions ********* */

/*N0GD*/ {mfdeclre.i}
/*N0GD*/ {gplabel.i}

         define output parameter mfc-recid as recid no-undo.
/*N0GD*/ define variable zerobl as character format "x(20)" no-undo.

/*N0GD*/ zerobl = getTermLabel("ZERO_BALANCE_WIP",20).

         do trans:
        find mfc_ctrl where mfc_field = "rpc_zero_bal_wip"
        exclusive-lock no-error.
        if not available mfc_ctrl then do:
               create mfc_ctrl.
               assign
                  mfc_field   = "rpc_zero_bal_wip"
                  mfc_seq     = 170
                  mfc_module  = "re"
                  mfc_type    = "l"

/*L0DP**          mfc_label   = "Zero Balance WIP" */
/*N0GD*  /*L0DP*/ mfc_label   = {&remfccr_p_1}     */
/*N0GD*/          mfc_label   = zerobl
                  mfc_logical = yes.

               if recid(mfc_ctrl) = -1 then.
           mfc-recid = recid(mfc_ctrl).

            end.
         end.
